;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
(defun c:txtlst ( / text_lst)
  (setq ss (ssget "x" '((0 . "TEXT"))))
  (setq sslen (sslength ss))
  (setq count 0)
  (while (< count sslen)
    (setq txt_item (cdr(assoc 1(entget(ssname ss count)))))
    (if text_lst
      (if (member txt_item text_lst) nil
        (setq text_lst (append text_lst (list txt_item)))
      )
      (setq text_lst (list txt_item ))
    )
    (setq count (1+ count))
  )
  (setq text_lst (acad_strlsort text_lst))
  (setq text_out (open (strcat (getvar"dwgprefix")"textlst.txt") "w"))
  (foreach n text_lst (princ (strcat n "\n") text_out))
  (close text_out)
)